home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
051-060
/
amok52
/
abitur
/
txt
/
faechernamen.def
< prev
next >
Wrap
Text File
|
1993-11-04
|
647b
|
22 lines
DEFINITION MODULE FaecherNamen;
TYPE FaecherTypen = (Turnen, (* Sympathinoten *)
Geographie, (* Zufallsnoten *)
Geschichte, (* Erfahrungsnoten *)
Franz, Deutsch,Englisch, Latein,
Zeichnen, Werken, Musik, Mathe,
Physik, Chemie, Bio, Informatik);
FachName = RECORD
ShortCut: ARRAY[0.. 4] OF CHAR; (* Für StundenPl *)
VollName: ARRAY[0..63] OF CHAR
END;
VAR FaecherNamen: ARRAY[Turnen..Informatik] OF FachName;
(* Werden am Anfang initialisiert *)
END FaecherNamen.